home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / install / data.z / CUSTRPT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-05  |  1.1 KB  |  53 lines
  1. unit CustRpt;
  2.  
  3. interface
  4.  
  5. uses SysUtils, Windows, Messages, Classes, Graphics, Controls,
  6.   StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;
  7.  
  8. type
  9.   TCustomerByInvoiceReport = class(TQuickRep)
  10.     DetailBand1: TQRBand;
  11.     QRExpr1: TQRExpr;
  12.     QRDBText2: TQRDBText;
  13.     QRDBText3: TQRDBText;
  14.     QRDBText4: TQRDBText;
  15.     QRDBText5: TQRDBText;
  16.     ColumnHeaderBand1: TQRBand;
  17.     QRLabel4: TQRLabel;
  18.     QRLabel5: TQRLabel;
  19.     QRLabel6: TQRLabel;
  20.     QRLabel7: TQRLabel;
  21.     QRLabel8: TQRLabel;
  22.     QRLabel9: TQRLabel;
  23.     TitleBand1: TQRBand;
  24.     QRLabel1: TQRLabel;
  25.     QRLabel2: TQRLabel;
  26.     QRLabel3: TQRLabel;
  27.     QRDBText1: TQRDBText;
  28.     procedure QRDBText1Print(sender: TObject; var Value: String);
  29.   private
  30.  
  31.   public
  32.  
  33.   end;
  34.  
  35. var
  36.   CustomerByInvoiceReport: TCustomerByInvoiceReport;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. uses DataMod;
  43.  
  44. procedure TCustomerByInvoiceReport.QRDBText1Print(sender: TObject;
  45.           var Value: String);
  46. begin
  47.   with MastData do
  48.     Value := DateToStr( CustByLastInvQueryLastInvoiceDate.Value );
  49. end;
  50.  
  51. end.
  52.  
  53.